100 REM "---------------------------------------------------------------------"
110 DEF FN D(H)=H-48+7*(H>64)
120 POKE 53280,11:POKE 53281,12:PRINT CHR$(144)CHR$(147)CHR$(14)CHR$(8)
130 PRINT "      [194]ITMAP [208]RINTER CONFIGURATOR"
140 PRINT "      [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
150 PRINT:PRINT "   [208]ROGRAMMED BY [199][207][207][211][197]      [205]AY 1992"
160 PRINT:PRINT:PRINT "[204]OADING [194]ITMAP [208]RINTER"
170 F$="@0:BITMAP PRINTER":FOR A=1 TO 17:POKE 679+A,ASC(MID$(F$,A,1)):NEXT A
180 POKE 780,14:POKE 781,171:POKE 782,2:SYS 65469:REM "[211][197][212][206][193][205]"
190 POKE 780,0:POKE 781,8:POKE 782,0:SYS 65466:   REM "[211][197][212][204][198][211]"
200 POKE 780,0:POKE 781,1:POKE 782,192:SYS 65493: REM "[204][207][193][196]"
210 EL=PEEK(781):EH=PEEK(782)
220 PRINT:PRINT "[208]RINTER FEED CODES: ";:A=49997:C=4:GOSUB 430
230 PRINT:PRINT "[208]RINTER SETUP CODE: ";:A=50130:GOSUB 400
240 PRINT:PRINT "[199]RAPHIC LINE CODE: ";:A=50609:GOSUB 400
250 PRINT:PRINT "[194]ITMAP SETUP CODE: ";:A=51348:GOSUB 400
260 PRINT:PRINT "[194]ITMAP RESTORE CODE: ";:A=51365:GOSUB 400
270 PRINT:PRINT "[211]AVING [194]ITMAP [208]RINTER"
280 POKE 780,17:POKE 781,168:POKE 782,2:SYS 65469:  REMCLOSE"[211][197][212][206][193][205]"
290 POKE 780,1:POKE 781,8:POKE 782,1:SYS 65466:     REM "[211][197][212][204][198][211]"
300 POKE 251,1:POKE 252,192
310 POKE 780,251:POKE 781,EL:POKE 782,EH:SYS 65496: REM "[211][193][214][197]"
320 END
390 :
400 GOSUB 450:IF D>16 THEN PRINT:PRINT "[212]OO MANY BYTES IN CODE":END
410 POKE A,D:C=D
420 :
430 FOR B=1 TO C:GOSUB 450:POKE A+B,D:NEXT B:PRINT "DATA [207][203]":RETURN
440 :
450 READ H$:IF LEFT$(H$,1)<>"$" THEN D=VAL(H$):GOTO 470
460 H=ASC(MID$(H$,2,1)):D=FN D(H)*16:H=ASC(MID$(H$,3,1)):D=D+FN D(H)
470 IF D>255 THEN PRINT:PRINT "[206]UMBER TOO LARGE":END
480 RETURN
490 :
500 REM "---------------------------------------------------------------------"
510 REM "[208]RINTER FEED CODES"
520 :
530 DATA 13                             :REM "[195]ARRIAGE [210]ETURN"
540 DATA 0                              :REM "[204]INE [198]EED (0 IF NOT REQUIRED)"
550 DATA $0B                            :REM "[214]ERTICAL [212]AB"
560 DATA $0C                            :REM "[198]ORM [198]EED"
590 :
600 REM "---------------------------------------------------------------------"
610 REM "[208]RINTER SETUP CODE"
620 :
630 DATA 16                             :REM "[206]UMBER OF BYTES IN CODE"
640 DATA 13,13,13,13,13,13              :REM "[211]ET TOP MARGIN (6 LINE FEEDS)
650 [131] $1B,$40                        :[143] "(null)ESET PRINTER"
660 [131] $1B,$4D                        :[143] "(null)ET VALLITE PITCH (12 CPI)
670 DATA $1B,$6C,$08                    :REM "[211]ET LEFT MARGIN (8 CHARACTERS)
680 [131] $1B,$78,$01                    :[143] "(null)ET LENORRESPONDENCE (null)UALITY MODE"
690 :
700 [143] "---------------------------------------------------------------------"
710 [143] "CHR$RAPHIC LINE CODE"
720 :
730 [131] 4                              :[143] "(null)UMBER OF BYTES IN CODE"
740 [131] $1B,$4C,$80,$02            :[143] "(null)ET DOUBLE DENSITY FOR 640 BYTES"
790 :
800 [143] "---------------------------------------------------------------------"
810 [143] "PEEKITMAP SETUP CODE"
820 :
830 [131] 13                             :[143] "(null)UMBER OF BYTES IN CODE"
840 [131] $1B,$7E,$30,$01                :[143] "(null)ET 1/144 INCH LINE SPACING"
850 [131] $1B,$65,$01,$10                :[143] "(null)ET FIXED (null)(null)AB TO 16 LINES"
860 [131] $1B,$6C,$10                    :[143] "(null)ET LEFT MARGIN TO CENTRE BITMAP"
870 [131] $0B,$0B                        :[143] "(null)(null)AB TO POSITION OF BITMAP"
890 :
900 [143] "---------------------------------------------------------------------"
910 [143] "PEEKITMAP RESTORE CODE"
920 :
930 [131] 7                              :[143] "(null)UMBER OF BYTES IN CODE"
940 [131] $0B,$0B                        :[143] "(null)(null)AB TO POSITION OF FOOTNOTE"
950 [131] $1B,$32                        :[143] "(null)ESTORE LINE SPACING TO 1/6 INCH"
960 [131] $1B,$6C,$08                    :[143] "(null)ESTORE LEFT MARGIN TO 8 CHAR'S"
990 :